home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / raw3.mrc < prev    next >
Encoding:
Text File  |  2000-02-21  |  18.0 KB  |  554 lines
  1. raw 317:* {
  2.   if (%rawcode.317 == off) { unset %rawcode.317 | return }
  3.   if ($tokmatch(%whois,$2,44)) {
  4.     if ($form(whois,idle)) whecho $readini %formats whois idle
  5.     else whecho $sc(|) $hc(idle) $sc(:) $duration($3) (signed on $asctime($4) $+ )
  6.     halt
  7.   }
  8.   elseif ($tokmatch(%cwhois,$2,44)) {
  9.     if ($form(cwhois,idle)) msg $active $readini %formats cwhois idle
  10.     else msg $active $vl idle : $duration($3) (signed on $asctime($4) $+ )
  11.     halt
  12.   }
  13. }
  14. raw 318:* {
  15.   if (%rawcode.318 == off) { unset %rawcode.318 | return }
  16.   if ($findtok(%whois,$2,1,44)) {
  17.     if ($form(whois,bottom)) whecho $readini %formats whois bottom
  18.     else whecho $lfix(16,»»»»»»»»»»»»»»») $+ $hc(»»»»»»»»»»»»»»») $+ $sc(»»»»»»»»»»»»»»»)
  19.     set %whois $remtok(%whois,$2,1,44)
  20.     halt
  21.   }
  22.   elseif ($findtok(%cwhois,$2,1,44)) {
  23.     if ($form(cwhois,bottom)) msg $active $readini %formats cwhois bottom
  24.     else msg $active $lfix(46,»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»)
  25.     set %cwhois $remtok(%cwhois,$2,1,44)
  26.     halt
  27.   }
  28.   elseif (%nwhois) {
  29.     set %nwhois $remtok(%nwhois,$2,1,44)
  30.     halt
  31.   }
  32. }
  33. raw 319:* {
  34.   if (%rawcode.319 == off) { unset %rawcode.319 | return }
  35.   if ($tokmatch(%whois,$2,44)) {
  36.     if ($form(whois,chan)) whecho $readini %formats whois chan
  37.     else whecho $sc(|) $hc(chan) $sc(:) $3-
  38.     halt
  39.   }
  40.   elseif ($tokmatch(%cwhois,$2,44)) {
  41.     if ($form(cwhois,chan)) msg $active $readini %formats cwhois chan
  42.     else msg $active $vl chan : $3-
  43.     halt
  44.   }
  45. }
  46. raw 324:* {
  47.   if (%rawcode.324 == off) { unset %rawcode.324 | return }
  48.   if ((%jstats == off) && (%joinch == on) && (%jointtl == on) && ($me ison $2)) {
  49.     if ($2 == %idlechan) {
  50.       mode $2 +mnstil 1
  51.       window -h $2
  52.     }
  53.     if ($3- == +) set %cmde none
  54.     else set %cmde $3-
  55.     if ($form(joinecho,totals)) $readini %formats joinecho totals
  56.     else echo $2 %h [o: $hc($opnick($2,0)) $+ ][v: $hc($vnick($2,0)) $+ ][n: $hc($rnick($2,0)) $+ ][t: $hc($nick($2,0)) $+ ][m: $hc(%cmde) $+ ]]
  57.     unset %cmde %jointime
  58.   }
  59. }
  60. raw 332:* {
  61.   if (%rawcode.332 == off) { unset %rawcode.332 | return }
  62.   if ((%jstats == off) && (%joinch == on) && (%joinsyn == on) && (%jointime)) {
  63.     if ($form(joinecho,synched)) $readini %formats joinecho synched
  64.     else echo $2 %h Join synched in $hc($rrpt($sub($ticks,%jointime))) seconds.
  65.   }
  66.   if ((%jstats == off) && (%joinch == on) && (%jointpc == on)) {
  67.     if ($form(joinecho,topic1)) {
  68.       set %i 0
  69.       :start1
  70.       inc %i
  71.       set %j topic $+ %i
  72.       if ($form(joinecho,%j)) {
  73.         $readini %formats joinecho %j
  74.         goto start1
  75.       }
  76.       unset %wrap.*
  77.       halt
  78.     }
  79.     echo $2 $lfix(3,.) $+ $str(-,63) $+ .
  80.     echo $2 $lfix(3,$vl) $sc(Topic) $+ : $fix(54,$wrap(1,54,$strip($3-))) $vl
  81.     set %wrap.topic %wrap.pos
  82.     if (%wrap.topic < $len($strip($3-))) {
  83.       :start
  84.       echo $2 $center(5,$vl) $fix(59,$wrap($pls(%wrap.topic,1),58,$strip($3-))) $vl
  85.       set %wrap.topic $pls(%wrap.topic,%wrap.pos)
  86.       if (%wrap.topic < $len($strip($3-))) goto start
  87.     }
  88.     if ((%joinnms != on) && (%jointst != on)) echo $2 $lfix(3,') $+ $str(-,63) $+ '
  89.     unset %wrap.*
  90.     halt
  91.   }
  92. }
  93. raw 333:* {
  94.   if (%rawcode.333 == off) { unset %rawcode.333 | return }
  95.   if ((%jstats == off) && (%joinch == on) && (%jointst == on)) {
  96.     if ($form(joinecho,setby1)) {
  97.       set %i 0
  98.       :start1
  99.       inc %i
  100.       set %j setby $+ %i
  101.       if ($form(joinecho,%j)) {
  102.         $readini %formats joinecho %j
  103.         goto start1
  104.       }
  105.       unset %jointime
  106.       halt
  107.     }
  108.     if (%jointpc != on) echo $2 $lfix(3,.) $+ $str(-,63) $+ .
  109.     echo $2 $lfix(3,$vl) $sc(SetBy) $+ : $hc($3) $lfix($sub(53,$len($3)),$asc-time($4)) $vl
  110.     echo $2 $lfix(3,') $+ $str(-,63) $+ '
  111.     unset %jointime
  112.     halt
  113.   }
  114. }
  115. raw 341:* { halt }
  116. raw 352:* {
  117.   if (%rawcode.352 == off) { unset %rawcode.352 | return }
  118.   if (%cstats == on) {
  119.     if (* isin $7) inc %niops
  120.     if (G isin $7) inc %naway
  121.     set %cladd $4
  122.     inc %cnum
  123.     inc %chops $8
  124.     set %hop1 $div(%chops,%cnum)
  125.     set %hop2 $trncte(%chops,%cnum)
  126.     set %hop3 $mpy(%hop2,100)
  127.     set %hop4 $div(%hop3,%cnum)
  128.     if ($len(%hop4) == 1) set %hop4 %hop4 $+ 0
  129.     halt
  130.   }
  131.   elseif (%spoofchk) {
  132.     if ($6 == %spoofchk) {
  133.       set %spoofchk.host $remove($3,~) $+ @ $+ $4
  134.       set %spoofchk.nick $6
  135.       unset %spoofchk
  136.       .quote stats L $6
  137.       halt
  138.     }
  139.   }
  140.   elseif (%lircops == on) {
  141.     if (* isin $7) {
  142.       inc %cn
  143.       if (%cn == 1) {
  144.         write -c $tp(ircop.txt)
  145.         write $tp(ircop.txt) exit $chr(123) set $chr(37) $+ icloc $chr(36) $+ swlc(@IrcOps) $vl window -c @IrcOps $chr(125)
  146.         write $tp(ircop.txt) -
  147.         window -a @IrcOps %icloc $tp(ircop.txt) FixedSys 9
  148.         aline @IrcOps . $+ $str(-,45) $+ .
  149.         aline @IrcOps $vl IRC Operators on $fix(27,$hc($2)) $+ $vl
  150.         aline @IrcOps $vl $+ $str(-,45) $+ $vl
  151.         aline @IrcOps $fix(5,$vl) $fix(13,Nick) $fix(25,Server) $vl
  152.       }
  153.       aline @IrcOps $vl $lfix(2,%cn) $+ . $fix(10,$hc($6)) $fix(28,$5) $vl
  154.       write $tp(ircop.txt) $6
  155.       write $tp(ircop.txt) .who $chr(123) who $6 $chr(125)
  156.       write $tp(ircop.txt) .ping $chr(123) ctcp $6 ping $chr(125)
  157.       write $tp(ircop.txt) .whois $chr(123) whois $6 $chr(125)
  158.       write $tp(ircop.txt) .finger $chr(123) finger $6 $chr(125)
  159.       write $tp(ircop.txt) .version $chr(123) ctcp $6 version $chr(125)
  160.     }
  161.     halt
  162.   }
  163.   elseif ($findtok(%joinedchans,$2,1,44)) halt
  164.   elseif (%whochan == on) {
  165.     if ($form(who)) {
  166.       iiecho $readini %formats who line1
  167.       if ($form(who,line2)) iiecho $readini %formats who line2
  168.       if ($form(who,line3)) iiecho $readini %formats who line3
  169.       if ($form(who,line4)) iiecho $readini %formats who line4
  170.     }
  171.     else {
  172.       iiecho $vl $fix(13,$hc($6)) ( $+ $3 $+ $chr(64) $+ $4 $+ )
  173.       iiecho $vl $str(-,9) is $sc($ca($7)) on $hc($5) ( $+ $sc($8) hops)
  174.     }
  175.     halt
  176.   }
  177. }
  178. raw 351:* {
  179.   if (%vercheck == on) {
  180.     if ($server($server).group) {
  181.       if (hybrid-6 isin $1-) netset $server($server).group 4 hybrid6
  182.       elseif (TS3 isin $1-) netset $server($server).group 4
  183.       elseif ($server($server).group == EFnet) netset $server($server).group 4
  184.       else netset $server($server).group 3
  185.     }
  186.     elseif ($network) {
  187.       if (hybrid-6 isin $1-) netset $network 4 hybrid6
  188.       elseif (TS3 isin $1-) netset $network 4
  189.       elseif ($network == EFnet) netset $network 4
  190.       else netset $network 3
  191.     }
  192.     else {
  193.       if (hybrid-6 isin $1-) netset EFnet 4 hybrid6
  194.       elseif (TS3 isin $1-) netset EFnet 4
  195.       else netset unknown 3
  196.     }
  197.     unset %vercheck
  198.     halt
  199.   }
  200. }
  201. raw 353:* {
  202.   if (%rawcode.353 == off) { unset %rawcode.353 | return }
  203.   set %nameschannel $3
  204.   if ((%colnick == on) && ($remove($4-,@) == $me)) cline -r %cn17 $3 1
  205.   if ((%jstats == off) && (%joinch == on) && (%joinnms == on)) {
  206.     nline $4-
  207.     halt
  208.   }
  209.   if (%jstats == on) {
  210.     inc %jstat.num
  211.     set %jstat.num2 $pls(1,$count($4-,$chr(32)))
  212.     set %nameschannel $3
  213.     if ($me ison %nameschannel) set %n.cmd echo %nameschannel
  214.     else set %n.cmd iiecho
  215.     if ($form(nicklist,namestop1)) %n.cmd $readini %formats nicklist namestop1
  216.     else %n.cmd $lfix(3,.) $+ $str(-,63) $+ .
  217.     if (%jstat.num == 1) {
  218.       if ($form(nicklist,namestop2a)) %n.cmd $readini %formats nicklist namestop2a
  219.       else %n.cmd $lfix(3,$vl) Names [[ $+ $hc($3) $+ : $+ $sc($fix(2,%jstat.num2)) $+ ]] $lfix($sub(51,$len($3)),$vl)
  220.     }
  221.     else {
  222.       if ($form(nicklist,namestop2b)) %n.cmd $readini %formats nicklist namestop2b
  223.       else %n.cmd $lfix(3,$vl) Next [[ $+ $hc($3) $+ : $+ $sc($fix(2,%jstat.num2)) $+ ]] $lfix($sub(52,$len($3)),$vl)
  224.     }
  225.     nline $4-
  226.     halt
  227.   }
  228. }
  229. raw 364:* {
  230.   if (%rawcode.364 == off) { unset %rawcode.364 | halt }
  231.   if (%linksr == on) { write $tp(temp.txt) $2 | halt }
  232.   if (%linkl == on) { write $nd(svr) $2 | halt }
  233. }
  234. raw 365:* {
  235.   if (%rawcode.365 == off) { unset %rawcode.365 | return }
  236.   if (%linksr == on) {
  237.     set %ntmp 0
  238.     set %i 0
  239.     :start
  240.     inc %i
  241.     if (%i > $lines($nd(svr))) goto end
  242.     set %stmp $read -nl $+ %i $nd(svr)
  243.     set %stmp2 $read -s $+ %stmp $tp(temp.txt)
  244.     if (%stmp2 == $null) {
  245.       inc %ntmp
  246.       if (%ntmp == 1) {
  247.         window -ae @LinkáLooker %lloc /server $tp(ll.txt) FixedSys 9
  248.         write -c $tp(ll.txt)
  249.         write $tp(ll.txt) exit $chr(123) set $chr(37) $+ lloc $chr(36) $+ swlc(@LinkáLooker) $vl window -c @LinkáLooker $chr(125)
  250.         write $tp(ll.txt) -
  251.         aline @LinkáLooker . $+ $str(-,45) $+ .
  252.         aline @LinkáLooker $vl Split servers from $fix(24,$hc($server)) $vl
  253.         aline @LinkáLooker $vl $+ $str(-,45) $+ $vl
  254.       }
  255.       aline @LinkáLooker $vl $str(á,5) $lfix(2,%ntmp) $+ . $fix(33,$sc(%stmp)) $vl
  256.       write $tp(ll.txt) $replace(%stmp,*,irc)
  257.       write $tp(ll.txt) .join $chr(123) server $replace(%stmp,*,irc) $chr(125)
  258.       goto start
  259.     }
  260.     goto start
  261.     :end
  262.     if (%ntmp == 0) iecho No split servers were found.
  263.     else {
  264.       titlebar @LinkáLooker - %ntmp split servers
  265.       aline @LinkáLooker ' $+ $str(-,45) $+ '
  266.     }
  267.     unset %linksr %stmp* %ntmp
  268.     halt
  269.   }
  270.   if (%linkl == on) {
  271.     iecho List of $hc(%irc.network) servers has been made. ( $+ $hc($lines($nd(svr))) servers)
  272.     unset %linkl
  273.     halt
  274.   }
  275. }
  276. raw 366:* {
  277.   if (%rawcode.366 == off) { unset %rawcode.366 | return }
  278.   if (%jstats == on) {
  279.     if (%colnick == on) colnick %nameschannel
  280.     unset %jstat.num* %nameschannel
  281.     set %jstats off
  282.     halt
  283.   }
  284.   if ((%jstats == off) && (%joinch == on) && (%joinnms == on)) halt
  285. }
  286. raw 367:* {
  287.   if (%rawcode.367 == off) { unset %rawcode.367 | return }
  288.   if (%unban == on) {
  289.     if ($3 iswm %ubadd) mode $2 -b $3
  290.     halt
  291.   }
  292.   elseif (%clearbans == on) {
  293.     set %bans %bans $3
  294.     halt
  295.   }
  296.   elseif (%unban.1 == on) {
  297.     if (%u.mask iswm $3) set %bans %bans $3
  298.     halt
  299.   }
  300.   elseif (%tban == on) {
  301.     if ($sub($ctime,$5) >= %tban.t) set %bans %bans $3
  302.     halt
  303.   }
  304.   elseif (%showbans == on) {
  305.     inc %bansno
  306.     write $tp(rban.txt) $3
  307.     if (%bansno == 1) {
  308.       echo $2 . $+ $str(-,15) Bans on ( $+ $hc($2) $+ ) $str(-,15)
  309.       echo $2 $fix(4,$vl) $fix(10,Nick) Banmask
  310.     }
  311.     if ($len($gettok($4,1,33)) > 9) {
  312.       echo $2 $vl %bansno $+ . $hc($gettok($4,1,33))
  313.       echo $2 $fix(10,$vl) '--> $sc($3)
  314.       halt
  315.     }
  316.     else {
  317.       echo $2 $vl %bansno $+ . $fix(10,$hc($gettok($4,1,33))) $sc($3)
  318.       halt
  319.     }
  320.   }
  321.   elseif (%rtban != $null) {
  322.     inc %bansno
  323.     if (%bansno == %rtban) mode $2 -b $3
  324.     halt
  325.   }
  326. }
  327. raw 368:* {
  328.   if (%rawcode.368 == off) { unset %rawcode.368 | return }
  329.   if (%unban == on) {
  330.     unset %unban
  331.     qnotice %ubnick All bans on you from $b($2) have been removed.
  332.     if (%ubnick !ison $2) .quote invite %ubnick $2
  333.     halt
  334.   }
  335.   elseif (%showbans == on) {
  336.     if (%bansno == 0) echo $2 %h No Bans were found on $hc($2) $+ .
  337.     else {
  338.       echo $2 ' $+ $str(-,$pls($len($2),42))
  339.       if ($me isop $2) echo $2 %h To remove a ban type $hc(/rban <ban #>) $+ .
  340.     }
  341.     unset %showbans %bansno
  342.     halt
  343.   }
  344.   elseif (%rtban != $null) unset %rtban %bansno
  345.   elseif ((%clearbans == on) || (%unban.1 == on) || (%tban == on)) {
  346.     if (%bans != $null) mmode $2 - b %bans
  347.     unset %bans %clearbans %unban.1 %tban*
  348.     halt
  349.   }
  350. }
  351. raw 369:* {
  352.   if (%rawcode.369 == off) { unset %rawcode.369 | return }
  353.   if ($findtok(%whowas,$2,1,44)) {
  354.     if ($form(whowas,bottom)) whecho $readini %formats whowas bottom
  355.     else whecho $lfix(16,»»»»»»»»»»»»»»») $+ $hc(»»»»»»»»»»»»»»») $+ $sc(»»»»»»»»»»»»»»»)
  356.     set %whowas $remtok(%whowas,$2,1,44)
  357.     halt
  358.   }
  359.   if ($findtok(%cwhowas,$2,1,44)) {
  360.     if ($form(cwhowas,bottom)) msg $active $readini %formats cwhowas bottom
  361.     else msg $active $lfix(46,»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»)
  362.     set %cwhowas $remtok(%cwhowas,$2,1,44)
  363.     halt
  364.   }
  365.   if ($findtok(%nwhowas,$2,1,44)) {
  366.     set %nwhowas $remtok(%nwhowas,$2,1,44)
  367.     halt
  368.   }
  369. }
  370. raw 375:* { halt }
  371. raw 376:* { halt }
  372. raw 391:* {
  373.   if (%slagtmp == on) {
  374.     set %pt $rrpt($sub($ticks,%slag))
  375.     if (%pt <= 0) {
  376.       if ($form(ctcpreplies,ping0)) iecho $readini %formats ctcpreplies ping0
  377.       else iecho Server $hc(PING) $sc(reply) from $u($hc($nick)) $+ : 0 sec
  378.     }
  379.     elseif ($form(ctcpreplies,ping)) iecho $readini %formats ctcpreplies ping
  380.     else iecho Server $hc(PING) $sc(reply) from $u($hc($nick)) $+ : $iduration(%pt)
  381.     unset %slag %pt %slagtmp
  382.     halt
  383.   }
  384. }
  385. raw 401:* {
  386.   if (%rawcode.401 == off) { unset %rawcode.401 | return }
  387.   if ($2 == $null) halt
  388.   elseif ($2 == %dccnick) {
  389.     set %dccrelay off
  390.     set %f12cmd %dccrinfo
  391.     iecho DCC relay unable to process send.
  392.     iecho To accept any queued sends press $hc(F12) $+ .
  393.     unset %dccnick %dccrinfo
  394.     halt
  395.   }
  396.   elseif ($tokmatch(%whois,$2,44)) {
  397.     if ($form(whois,error)) iecho $readini %formats whois error
  398.     else iecho No such nickname $hc($2) on IRC.
  399.     set %nwhois $addtok(%nwhois,$gettok(%whois,$tokmatch(%whois,$2,44),44),44)
  400.     set %whois $deltok(%whois,$tokmatch(%whois,$2,44),44)
  401.     halt
  402.   }
  403.   elseif ($tokmatch(%cwhois,$2,44)) {
  404.     if ($form(cwhois,error)) iecho $readini %formats cwhois error
  405.     else iecho No such nickname $hc($2) on IRC.
  406.     set %nwhois $addtok(%nwhois,$gettok(%cwhois,$tokmatch(%cwhois,$2,44),44),44)
  407.     set %cwhois $deltok(%cwhois,$tokmatch(%cwhois,$2,44),44)
  408.     halt
  409.   }
  410.   else {
  411.     if ($2 != %lastnick) {
  412.       if ($form(errors,noton)) iecho $readini %formats errors noton
  413.       else iecho No such nickname $hc($2) on IRC.
  414.     }
  415.     set %lastnick $2
  416.     halt
  417.   }
  418. }
  419. raw 402:* {
  420.   if (%rawcode.402 == off) { unset %rawcode.402 | return }
  421.   elseif ($2 == $null) halt
  422.   elseif ($2 == %dccnick) {
  423.     set %dccrelay off
  424.     set %f12cmd %dccrinfo
  425.     iecho DCC relay unable to process send.
  426.     iecho To accept any queued sends press $hc(F12) $+ .
  427.     unset %dccnick %dccrinfo
  428.     halt
  429.   }
  430.   elseif ($tokmatch(%whois,$2,44)) {
  431.     if ($form(whois,error)) iecho $readini %formats whois error
  432.     else iecho No such server $hc($2) on IRC.
  433.     set %nwhois $addtok(%nwhois,$gettok(%whois,$tokmatch(%whois,$2,44),44),44)
  434.     set %whois $deltok(%whois,$tokmatch(%whois,$2,44),44)
  435.     halt
  436.   }
  437.   elseif ($tokmatch(%cwhois,$2,44)) {
  438.     if ($form(cwhois,error)) iecho $readini %formats cwhois error
  439.     else iecho No such server $hc($2) on IRC.
  440.     set %nwhois $addtok(%nwhois,$gettok(%cwhois,$tokmatch(%cwhois,$2,44),44),44)
  441.     set %cwhois $deltok(%cwhois,$tokmatch(%cwhois,$2,44),44)
  442.     halt
  443.   }
  444.   else {
  445.     if ($2 != %lastnick) {
  446.       if ($form(errors,noton)) iecho $readini %formats errors noton
  447.       else iecho No such server $hc($2) on IRC.
  448.     }
  449.     set %lastnick $2
  450.     halt
  451.   }
  452. }
  453. raw 404:* {
  454.   if (%rawcode.404 == off) { unset %rawcode.404 | return }
  455.   if ($2 != %lastchan) {
  456.     if ($form(errors,nochan)) iecho $readini %formats errors nochan
  457.     else iecho Cannot send to channel ( $+ $hc($2) $+ )
  458.   }
  459.   set %lastchan $2
  460.   halt
  461. }
  462. raw 405:* {
  463.   if (%rawcode.405 == off) { unset %rawcode.405 | return }
  464.   if ($form(errors,toomanychans)) iecho $readini %formats errors toomanychans
  465.   else iecho Server says you are on too many channels.
  466.   halt
  467. }
  468. raw 406:* {
  469.   if (%rawcode.406 == off) { unset %rawcode.406 | return }
  470.   if ($findtok(%whowas,$2,1,44)) {
  471.     if ($form(whowas,error)) iecho $readini %formats whowas error
  472.     else iecho Could not locate $hc(WHOWAS) information for $hc($2) $+ .
  473.     set %whowas $remtok(%whowas,$2,1,44)
  474.     set %nwhowas $addtok(%nwhowas,$2,44)
  475.     halt
  476.   }
  477.   if ($findtok(%cwhowas,$2,1,44)) {
  478.     if ($form(whowas,error)) iecho $readini %formats whowas error
  479.     else iecho Could not locate $hc(WHOWAS) information for $hc($2) $+ .
  480.     set %cwhowas $remtok(%cwhowas,$2,1,44)
  481.     set %nwhowas $addtok(%nwhowas,$2,44)
  482.     halt
  483.   }
  484. }
  485. raw 421:* {
  486.   if (%rawcode.421 == off) { unset %rawcode.421 | return }
  487.   if ($form(errors,badcmd)) iecho $readini %formats errors badcmd
  488.   else iecho $hc($2) is not a known command.
  489.   halt
  490. }
  491. raw 432:* {
  492.   if (%rawcode.432 == off) { unset %rawcode.432 | return }
  493.   if ($form(errors,badnick)) iecho $readini %formats errors badnick
  494.   else iecho Erroneous nickname, please try again.
  495.   halt
  496. }
  497. raw 433:* {
  498.   if (%rawcode.433 == off) { unset %rawcode.433 | return }
  499.   if ($form(errors,nickinuse)) iecho $readini %formats errors nickinuse
  500.   else iecho Nickname $hc($2) is already in use.
  501.   whois $2
  502.   halt
  503. }
  504. raw 436:* {
  505.   if (%rawcode.436 == off) { unset %rawcode.436 | return }
  506.   if ($form(errors,collision)) iecho $readini %formats errors collision
  507.   else iecho Nickname Collision!!
  508.   nick $me $+ $rand(a,z)
  509.   halt
  510. }
  511. raw 465:* {
  512.   if (%rawcode.465 == off) { unset %rawcode.465 | return }
  513.   iecho You have been K-lined from $server $+ , try another
  514.   halt
  515. }
  516. raw 471:* {
  517.   if (%rawcode.471 == off) { unset %rawcode.471 | return }
  518.   if ($form(joinerrors,full)) iecho $readini %formats joinerrors full
  519.   else iecho Cannot join channel $hc($2) (Its full)
  520.   halt
  521. }
  522. raw 473:* {
  523.   if (%rawcode.473 == off) { unset %rawcode.473 | return }
  524.   if ($form(joinerrors,invite)) iecho $readini %formats joinerrors invite
  525.   else iecho Cannot join channel $hc($2) (Invite only)
  526.   halt
  527. }
  528. raw 474:* {
  529.   if (%rawcode.474 == off) { unset %rawcode.474 | return }
  530.   if ($form(joinerrors,banned)) iecho $readini %formats joinerrors banned
  531.   else iecho Cannot join channel $hc($2) (Banned)
  532.   halt
  533. }
  534. raw 475:* {
  535.   if (%rawcode.475 == off) { unset %rawcode.475 | return }
  536.   if ($form(joinerrors,key)) iecho $readini %formats joinerrors key
  537.   else iecho Cannot join channel $hc($2) (Requires the correct key)
  538.   halt
  539. }
  540. raw 481:* {
  541.   if (%rawcode.481 == off) { unset %rawcode.481 | return }
  542.   if (%spoofchk.nick) {
  543.     iecho Could not check %spoofchk.nick for a spoofed address. (you are not an IRC operator)
  544.     unset %spoofchk*
  545.     halt
  546.   }
  547. }
  548. raw 482:* {
  549.   if (%rawcode.482 == off) { unset %rawcode.482 | return }
  550.   if ($2 != %lastchan1) iecho You are not a channel operator ( $+ $hc($2) $+ )
  551.   set %lastchan1 $2
  552.   halt
  553. }
  554.